home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 18 / CU Amiga Magazine's Super CD-ROM 18 (1997)(EMAP Images)(GB)[!][issue 1998-01].iso / CUCD / Utilities / Laplace / Projects / test3 < prev    next >
Encoding:
Text File  |  1997-01-24  |  7.8 KB  |  330 lines
  1. #LAPLACE 2
  2. #STARTLINE
  3. $thicklines=2
  4. #OPTION
  5. 0x0000600d=0x00000002
  6. #ENDLINE
  7. #STARTLINE
  8. A=[1,2,3;4,5,6;7,8,9]
  9. #RESULT
  10. DF(MX(3,3,CX(NB(1,1,1),NB(1,0,1)),CX(NB(1,4,1),NB(1,0,1)),CX(NB(1,7,1),NB(1,0,1)),CX(NB(1,2,1),NB(1,0,1)),CX(NB(1,5,1),NB(1,0,1)),CX(NB(1,8,1),NB(1,0,1)),CX(NB(1,3,1),NB(1,0,1)),CX(NB(1,6,1),NB(1,0,1)),CX(NB(1,9,1),NB(1,0,1))),0,A,0)
  11. #ENDLINE
  12. #STARTLINE
  13. A*[1,2,3]
  14. #RESULT
  15. V(3,CX(NB(1,30,1),NB(1,0,1)),CX(NB(1,36,1),NB(1,0,1)),CX(NB(1,42,1),NB(1,0,1)))
  16. #ENDLINE
  17. #STARTLINE
  18. B=A;//[3,0,0;0,0,0;0,0,0]
  19. #RESULT
  20. DF(MX(3,3,CX(NB(1,1,1),NB(1,0,1)),CX(NB(1,4,1),NB(1,0,1)),CX(NB(1,7,1),NB(1,0,1)),CX(NB(1,2,1),NB(1,0,1)),CX(NB(1,5,1),NB(1,0,1)),CX(NB(1,8,1),NB(1,0,1)),CX(NB(1,3,1),NB(1,0,1)),CX(NB(1,6,1),NB(1,0,1)),CX(NB(1,9,1),NB(1,0,1))),0,B,0)
  21. #ENDLINE
  22. #STARTLINE
  23. A*A
  24. #RESULT
  25. MX(3,3,CX(NB(1,30,1),NB(1,0,1)),CX(NB(1,66,1),NB(1,0,1)),CX(NB(1,102,1),NB(1,0,1)),CX(NB(1,36,1),NB(1,0,1)),CX(NB(1,81,1),NB(1,0,1)),CX(NB(1,126,1),NB(1,0,1)),CX(NB(1,42,1),NB(1,0,1)),CX(NB(1,96,1),NB(1,0,1)),CX(NB(1,150,1),NB(1,0,1)))
  26. #ENDLINE
  27. #STARTLINE
  28. pi*A
  29. #RESULT
  30. MX(3,3,CN(0),OP(MUL,2,CX(NB(1,4,1),NB(1,0,1)),CN(0)),OP(MUL,2,CX(NB(1,7,1),NB(1,0,1)),CN(0)),OP(MUL,2,CX(NB(1,2,1),NB(1,0,1)),CN(0)),OP(MUL,2,CX(NB(1,5,1),NB(1,0,1)),CN(0)),OP(MUL,2,CX(NB(1,8,1),NB(1,0,1)),CN(0)),OP(MUL,2,CX(NB(1,3,1),NB(1,0,1)),CN(0)),OP(MUL,2,CX(NB(1,6,1),NB(1,0,1)),CN(0)),OP(MUL,2,CX(NB(1,9,1),NB(1,0,1)),CN(0)))
  31. #ENDLINE
  32. #STARTLINE
  33. $dispprec=2
  34. #OPTION
  35. 0x00006005=0x00000002
  36. #ENDLINE
  37. #STARTLINE
  38. $prompt="%d * "
  39. #OPTION
  40. 0x0000680e="%d * "
  41. #ENDLINE
  42. #STARTLINE
  43. eval(pi*A)
  44. #RESULT
  45. MX(3,3,CX(NB(3,3.1415926535897e+000),NB(1,0,1)),CX(NB(3,1.2566370614359e+001),NB(1,0,1)),CX(NB(3,2.1991148575128e+001),NB(1,0,1)),CX(NB(3,6.2831853071795e+000),NB(1,0,1)),CX(NB(3,1.5707963267949e+001),NB(1,0,1)),CX(NB(3,2.5132741228718e+001),NB(1,0,1)),CX(NB(3,9.4247779607693e+000),NB(1,0,1)),CX(NB(3,1.8849555921538e+001),NB(1,0,1)),CX(NB(3,2.8274333882308e+001),NB(1,0,1)))
  46. #ENDLINE
  47. #STARTLINE
  48. $dispprec=13
  49. #OPTION
  50. 0x00006005=0x0000000d
  51. #ENDLINE
  52. #STARTLINE
  53. eval(pi*A)
  54. #RESULT
  55. MX(3,3,CX(NB(3,3.1415926535897e+000),NB(1,0,1)),CX(NB(3,1.2566370614359e+001),NB(1,0,1)),CX(NB(3,2.1991148575128e+001),NB(1,0,1)),CX(NB(3,6.2831853071795e+000),NB(1,0,1)),CX(NB(3,1.5707963267949e+001),NB(1,0,1)),CX(NB(3,2.5132741228718e+001),NB(1,0,1)),CX(NB(3,9.4247779607693e+000),NB(1,0,1)),CX(NB(3,1.8849555921538e+001),NB(1,0,1)),CX(NB(3,2.8274333882308e+001),NB(1,0,1)))
  56. #ENDLINE
  57. #STARTLINE
  58. (2i+2)*[1i,0,3]
  59. #RESULT
  60. V(3,CX(NB(1,-2,1),NB(1,2,1)),CX(NB(1,0,1),NB(1,0,1)),CX(NB(1,6,1),NB(1,6,1)))
  61. #ENDLINE
  62. #STARTLINE
  63. [1,2,3]*[4,5,6]
  64. #RESULT
  65. CX(NB(1,32,1),NB(1,0,1))
  66. #ENDLINE
  67. #STARTLINE
  68. A=[1,2,3]
  69. #RESULT
  70. DF(V(3,CX(NB(1,1,1),NB(1,0,1)),CX(NB(1,2,1),NB(1,0,1)),CX(NB(1,3,1),NB(1,0,1))),0,A,0)
  71. #ENDLINE
  72. #STARTLINE
  73. A*A
  74. #RESULT
  75. CX(NB(1,14,1),NB(1,0,1))
  76. #ENDLINE
  77. #STARTLINE
  78. pi*A
  79. #RESULT
  80. V(3,CN(0),OP(MUL,2,CX(NB(1,2,1),NB(1,0,1)),CN(0)),OP(MUL,2,CX(NB(1,3,1),NB(1,0,1)),CN(0)))
  81. #ENDLINE
  82. #STARTLINE
  83. A×(A+[2,2,2])
  84. #RESULT
  85. V(3,CX(NB(1,-2,1),NB(1,0,1)),CX(NB(1,4,1),NB(1,0,1)),CX(NB(1,-2,1),NB(1,0,1)))
  86. #ENDLINE
  87. #STARTLINE
  88. A(t)=[cos(t),sin(t),t^2]
  89. #RESULT
  90. DF(V(3,OP(COS,1,RF(CX(NB(1,0,1),NB(1,0,1)),t,0)),OP(SIN,1,RF(CX(NB(1,0,1),NB(1,0,1)),t,0)),OP(POT,2,RF(CX(NB(1,0,1),NB(1,0,1)),t,0),CX(NB(1,2,1),NB(1,0,1)))),0,A,1,t)
  91. #ENDLINE
  92. #STARTLINE
  93. A'=diff(A);
  94. #RESULT
  95. DF(V(3,OP(NEG,1,OP(SIN,1,RF(CX(NB(1,0,1),NB(1,0,1)),t,0))),OP(COS,1,RF(CX(NB(1,0,1),NB(1,0,1)),t,0)),OP(MUL,2,CX(NB(1,2,1),NB(1,0,1)),RF(CX(NB(1,0,1),NB(1,0,1)),t,0))),0,A',0)
  96. #ENDLINE
  97. #STARTLINE
  98. window(A')
  99. #ENDLINE
  100. #STARTLINE
  101. A'
  102. #RESULT
  103. V(3,OP(NEG,1,OP(SIN,1,RF(CX(NB(1,0,1),NB(1,0,1)),t,0))),OP(COS,1,RF(CX(NB(1,0,1),NB(1,0,1)),t,0)),OP(MUL,2,CX(NB(1,2,1),NB(1,0,1)),RF(CX(NB(1,0,1),NB(1,0,1)),t,0)))
  104. #ENDLINE
  105. #STARTLINE
  106. eval(diff(A',t))
  107. #RESULT
  108. V(3,OP(NEG,1,OP(COS,1,RF(CX(NB(1,0,1),NB(1,0,1)),t,0))),OP(NEG,1,OP(SIN,1,RF(CX(NB(1,0,1),NB(1,0,1)),t,0))),CX(NB(1,2,1),NB(1,0,1)))
  109. #ENDLINE
  110. #STARTLINE
  111. diff(sin(t),t)
  112. #RESULT
  113. OP(COS,1,RF(CX(NB(1,0,1),NB(1,0,1)),t,0))
  114. #ENDLINE
  115. #STARTLINE
  116. dmode(0)
  117. #ENDLINE
  118. #STARTLINE
  119. [1,0,1]×[0,2,0]
  120. #RESULT
  121. V(3,CX(NB(1,-2,1),NB(1,0,1)),CX(NB(1,0,1),NB(1,0,1)),CX(NB(1,2,1),NB(1,0,1)))
  122. #ENDLINE
  123. #STARTLINE
  124. A=[TRUE,FALSE,TRUE;
  125.       FALSE,TRUE,FALSE;
  126.       FALSE,FALSE,TRUE]
  127. #RESULT
  128. DF(MX(3,3,B(1),B(0),B(0),B(0),B(1),B(0),B(1),B(0),B(1)),0,A,0)
  129. #ENDLINE
  130. #STARTLINE
  131. B=!A
  132. #RESULT
  133. DF(MX(3,3,B(0),B(1),B(1),B(1),B(0),B(1),B(0),B(1),B(0)),0,B,0)
  134. #ENDLINE
  135. #STARTLINE
  136. A || B
  137. #RESULT
  138. MX(3,3,B(1),B(1),B(1),B(1),B(1),B(1),B(1),B(1),B(1))
  139. #ENDLINE
  140. #STARTLINE
  141. a=[TRUE,FALSE,TRUE]
  142. #RESULT
  143. DF(V(3,B(1),B(0),B(1)),0,a,0)
  144. #ENDLINE
  145. #STARTLINE
  146. b=[FALSE,FALSE,TRUE]
  147. #RESULT
  148. DF(V(3,B(0),B(0),B(1)),0,b,0)
  149. #ENDLINE
  150. #STARTLINE
  151. A && a
  152. #RESULT
  153. V(3,B(1),B(0),B(1))
  154. #ENDLINE
  155. #STARTLINE
  156. dmode(0)
  157. #ENDLINE
  158. #STARTLINE
  159. TRUE || FALSE
  160. #RESULT
  161. B(1)
  162. #ENDLINE
  163. #STARTLINE
  164. FALSE || TRUE
  165. #RESULT
  166. B(1)
  167. #ENDLINE
  168. #STARTLINE
  169. $thicklines=1
  170. #OPTION
  171. 0x0000600d=0x00000001
  172. #ENDLINE
  173. #STARTLINE
  174. 1 < 2i
  175. #RESULT
  176. FM("Not defined for complex. (lkCmplx.c, 1471)",0)
  177. #ENDLINE
  178. #STARTLINE
  179. procedure A(n)
  180. {
  181.   a = 0;
  182.   while ( a < n )
  183.   {
  184.     result (vector(a+1,x,2*abs(x-a-1+a/2)));
  185.     a = a + 1;
  186.   }
  187.   return();
  188. }
  189. #ENDLINE
  190. #STARTLINE
  191. $centered = TRUE;
  192. $rowvectors = TRUE;
  193. A(10);
  194. [0];[0]
  195. #OPTION
  196. 0x0000600c=0x00000001
  197. 0x00006007=0x00000001
  198. #RESULT
  199. V(1,CX(NB(1,0,1),NB(1,0,1)))
  200. #RESULT
  201. V(2,CX(NB(1,1,1),NB(1,0,1)),CX(NB(1,1,1),NB(1,0,1)))
  202. #RESULT
  203. V(3,CX(NB(1,2,1),NB(1,0,1)),CX(NB(1,0,1),NB(1,0,1)),CX(NB(1,2,1),NB(1,0,1)))
  204. #RESULT
  205. V(4,CX(NB(1,3,1),NB(1,0,1)),CX(NB(1,1,1),NB(1,0,1)),CX(NB(1,1,1),NB(1,0,1)),CX(NB(1,3,1),NB(1,0,1)))
  206. #RESULT
  207. V(5,CX(NB(1,4,1),NB(1,0,1)),CX(NB(1,2,1),NB(1,0,1)),CX(NB(1,0,1),NB(1,0,1)),CX(NB(1,2,1),NB(1,0,1)),CX(NB(1,4,1),NB(1,0,1)))
  208. #RESULT
  209. V(6,CX(NB(1,5,1),NB(1,0,1)),CX(NB(1,3,1),NB(1,0,1)),CX(NB(1,1,1),NB(1,0,1)),CX(NB(1,1,1),NB(1,0,1)),CX(NB(1,3,1),NB(1,0,1)),CX(NB(1,5,1),NB(1,0,1)))
  210. #RESULT
  211. V(7,CX(NB(1,6,1),NB(1,0,1)),CX(NB(1,4,1),NB(1,0,1)),CX(NB(1,2,1),NB(1,0,1)),CX(NB(1,0,1),NB(1,0,1)),CX(NB(1,2,1),NB(1,0,1)),CX(NB(1,4,1),NB(1,0,1)),CX(NB(1,6,1),NB(1,0,1)))
  212. #RESULT
  213. V(8,CX(NB(1,7,1),NB(1,0,1)),CX(NB(1,5,1),NB(1,0,1)),CX(NB(1,3,1),NB(1,0,1)),CX(NB(1,1,1),NB(1,0,1)),CX(NB(1,1,1),NB(1,0,1)),CX(NB(1,3,1),NB(1,0,1)),CX(NB(1,5,1),NB(1,0,1)),CX(NB(1,7,1),NB(1,0,1)))
  214. #RESULT
  215. V(9,CX(NB(1,8,1),NB(1,0,1)),CX(NB(1,6,1),NB(1,0,1)),CX(NB(1,4,1),NB(1,0,1)),CX(NB(1,2,1),NB(1,0,1)),CX(NB(1,0,1),NB(1,0,1)),CX(NB(1,2,1),NB(1,0,1)),CX(NB(1,4,1),NB(1,0,1)),CX(NB(1,6,1),NB(1,0,1)),CX(NB(1,8,1),NB(1,0,1)))
  216. #RESULT
  217. V(10,CX(NB(1,9,1),NB(1,0,1)),CX(NB(1,7,1),NB(1,0,1)),CX(NB(1,5,1),NB(1,0,1)),CX(NB(1,3,1),NB(1,0,1)),CX(NB(1,1,1),NB(1,0,1)),CX(NB(1,1,1),NB(1,0,1)),CX(NB(1,3,1),NB(1,0,1)),CX(NB(1,5,1),NB(1,0,1)),CX(NB(1,7,1),NB(1,0,1)),CX(NB(1,9,1),NB(1,0,1)))
  218. #RESULT
  219. V(1,CX(NB(1,0,1),NB(1,0,1)))
  220. #RESULT
  221. V(1,CX(NB(1,0,1),NB(1,0,1)))
  222. #ENDLINE
  223. #STARTLINE
  224. $showinput=TRUE
  225. #OPTION
  226. 0x00006009=0x00000001
  227. #ENDLINE
  228. #STARTLINE
  229. [1,2,2]
  230. #RESULT
  231. V(3,CX(NB(1,1,1),NB(1,0,1)),CX(NB(1,2,1),NB(1,0,1)),CX(NB(1,2,1),NB(1,0,1)))
  232. #ENDLINE
  233. #STARTLINE
  234. 1+2;3+4
  235. #RESULT
  236. CX(NB(1,3,1),NB(1,0,1))
  237. #RESULT
  238. CX(NB(1,7,1),NB(1,0,1))
  239. #ENDLINE
  240. #STARTLINE
  241. a += 1
  242. #RESULT
  243. CX(NB(1,1,1),NB(1,0,1))
  244. #ENDLINE
  245. #STARTLINE
  246. procedure a(x) { return(x) }
  247. #ENDLINE
  248. #STARTLINE
  249. a(2)
  250. #RESULT
  251. CX(NB(1,2,1),NB(1,0,1))
  252. #ENDLINE
  253. #STARTLINE
  254. a += 2
  255. #RESULT
  256. FM("**ERROR :",0)
  257. #ENDLINE
  258. #STARTLINE
  259. a = 1
  260. #RESULT
  261. DF(CX(NB(1,1,1),NB(1,0,1)),0,a,0)
  262. #ENDLINE
  263. #STARTLINE
  264. a += 2
  265. #RESULT
  266. CX(NB(1,3,1),NB(1,0,1))
  267. #ENDLINE
  268. #STARTLINE
  269. a
  270. #RESULT
  271. CX(NB(1,3,1),NB(1,0,1))
  272. #ENDLINE
  273. #STARTLINE
  274. procedure A(n) 
  275. {
  276.   a = 0;
  277.   b = 0;
  278.   while ( b < n )
  279.   {
  280.      a = a + b;
  281.      b = b + 1;
  282.   } 
  283.   return(a);
  284. }
  285. #ENDLINE
  286. #STARTLINE
  287. procedure B(n) 
  288. {
  289.   a = 0;
  290.   for ( b = 0,  b < n, b += 1 )
  291.   {
  292.      a += b;
  293.   } 
  294.   return(a);
  295. }
  296. #ENDLINE
  297. #STARTLINE
  298. procedure C(n) 
  299. {
  300.   a = 0;
  301.   b = 0;
  302.   while ( b < n )
  303.   {
  304.      a += b;
  305.      b += 1;
  306.   } 
  307.   return(a);
  308. }
  309. #ENDLINE
  310. #STARTLINE
  311. A(1000);
  312. #RESULT
  313. CX(NB(1,499500,1),NB(1,0,1))
  314. #ENDLINE
  315. #STARTLINE
  316. B(1000);
  317. #ENDLINE
  318. #STARTLINE
  319. C(1000);
  320. #ENDLINE
  321. #STARTLINE
  322. "hallo\\ ksdh\"Du\"\n"
  323. #RESULT
  324. ST("hallo\5c ksdh\22Du\22\0a")
  325. #ENDLINE
  326. #STARTLINE
  327.  
  328. #ENDLINE
  329. #ENDPROJECT
  330.